home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Neurons / out < prev    next >
Encoding:
Text File  |  1998-10-23  |  354 b   |  15 lines  |  [TEXT/ScoM]
  1. out test position
  2.  
  3. Tests if the out pattern contains the result of test in the position. Only previous out positions generated by the neuron at this instance are valid.
  4.  
  5. (def-neuron test3
  6.   (and (in 1 'a) (in 2 'a))
  7.   'a
  8.   (and (in 1 'b) (in 2 'a) (out 'a -1))
  9.   'x
  10. )
  11.  
  12. (run-neuron 'test3
  13.             '(a b a d b)
  14.             '(a a b a a))
  15. --> (a x = = x)